home *** CD-ROM | disk | FTP | other *** search
/ MacHome 1999 February/March / MacHome CD (February and March 1999).iso / Edutainment / INFOHIGHWAYDEMOS / demo / MENU.DCR / scripts_49.ls < prev    next >
Encoding:
Text File  |  1999-09-16  |  911 b   |  36 lines
  1. on enterFrame
  2.   global experimenterMenu
  3.   set ActiveStartspr to 3
  4.   set echanger to ActiveStartspr
  5.   set startBalls to 4
  6.   set seBrancherBall to startBalls
  7.   set diffuserBall to startBalls + 1
  8.   set correspondreBall to startBalls + 2
  9.   set echangerBall to startBalls + 3
  10.   set naviguerBall to startBalls + 4
  11.   set forumBall to startBalls + 5
  12.   set startHighLightSpr to 10
  13.   set forum to startHighLightSpr
  14.   set startHotSpot to 11
  15.   set FORUMHS to startHotSpot
  16.   set ro to rollOver()
  17.   puppetizeExclude(0, ro - (startHotSpot - startHighLightSpr), forum, forum)
  18.   case ro of
  19.     echanger, echangerBall:
  20.       go(the frame)
  21.     FORUMHS, forumBall:
  22.       puppetSprite(forum, 1)
  23.       set the member of sprite forum to member "forum"
  24.       updateStage()
  25.       go(the frame)
  26.     otherwise:
  27.       depuppetize(forum, forum)
  28.       updateStage()
  29.       go("echangerClose")
  30.   end case
  31. end
  32.  
  33. on exitFrame
  34.   go(the frame)
  35. end
  36.